﻿Public Class Cliente : Implements IEquatable(Of Cliente)
    'BIEN
    Public Property Nombre As String
    Public Property Password As String
    Public Property Email As String
    Public Property TarjetaDeCredito As String
    Public Sub New()

    End Sub
    Public Sub New(ByVal nombre As String, ByVal contraseña As String, ByVal email As String, ByVal tarjeta As String)
        Me.Nombre = nombre
        Me.Password = contraseña
        Me.Email = email
        Me.TarjetaDeCredito = tarjeta
    End Sub

    Public Overloads Function Equals(other As Cliente) As Boolean Implements System.IEquatable(Of Cliente).Equals
        Return Me.Nombre = other.Nombre AndAlso Me.Email = other.Email AndAlso Me.TarjetaDeCredito = other.TarjetaDeCredito
    End Function
End Class
